Unit
lmddatel

Declaration

TLMDDateListRecord = record
    Datefg       : TDateTime;
    Date       : TDateTime;
    DateString : String[40];
    Active,
    Calculated : Boolean;
  End;